home *** CD-ROM | disk | FTP | other *** search
/ Cerilica Vantage Pre-Release / Cerilica Vantage Pre-Release - Disc 1.iso / vantag.arc / !Vantage_PS_newSprite9 < prev    next >
Encoding:
Text File  |  1999-05-18  |  3.7 KB  |  155 lines
  1. %%BeginResource: procset Cerilica_VantageSprites 0.91 0
  2. %%Title: (Vantage Sprite Procedures)
  3. %%Version: 0.91 0
  4. %%CreationDate: (98/7/5) ()        % (5-Jul-1998)
  5. %%Copyright: ((C) 1996 Cerilica All Rights Reserved)
  6. %%Author: (Simon Birtwistle)
  7. userdict /Vantage_Sprites 50 dict dup begin put
  8.  
  9. /bd{bind def}bind def
  10. /initialize{Vantage_Sprites begin}bd
  11. /terminate{currentdict Vantage_Sprites eq{end}if}bd
  12.  
  13. /_pal 1024 string def
  14. /_bpp 0 def
  15. /_width 0 def
  16. /_height 0 def
  17. /_line 0 def
  18. /_byte 0 def
  19. /_left 0 def
  20. /_bitmask 0 def
  21. /ink -2 def        % -2=Grey, -1=Colour, 0=Spot sep, 1=C, 2=M, 3=Y, 4=K
  22.  
  23. /hs{currentfile exch string readhexstring pop}bd
  24. /bs{currentfile exch string readstring pop}bd
  25. /pe{_pal exch 4 mul 4 getinterval}bd
  26.  
  27. /cyan{1 0 0 0}bd
  28. /magenta{0 1 0 0}bd
  29. /yellow{0 0 1 0}bd
  30. /black{0 0 0 1}bd
  31. /none{0 0 0 0}bd
  32.  
  33. /iseq{
  34.  5 4 roll eq 7 1 roll
  35.  4 3 roll eq 5 1 roll
  36.  3 2 roll eq 3 1 roll
  37.  eq and and and
  38. }bd
  39. /setcmykcolor where{pop
  40.   /ink -1 store
  41.   /is{setcmykcolor currentgray 1 exch sub}bd
  42.   /ink?{/ink -1 store
  43.    cyan is magenta is yellow is black is
  44.    4 copy none iseq{/ink 0 store}if
  45.    4 copy cyan iseq{/ink 1 store}if
  46.    4 copy magenta iseq{/ink 2 store}if
  47.    4 copy yellow iseq{/ink 3 store}if
  48.    black iseq{/ink 4 store}if
  49.   }bd
  50. }{
  51.   /setcmykcolor{
  52.     3{dup 3 1 roll add 1 exch sub 4 1 roll}repeat pop
  53.     setrgbcolor
  54.   }bd
  55.   /ink?{/ink -2 store}bd
  56.   /ink -2 store
  57. }ifelse
  58.  
  59. /spritepalette{
  60.  1 sub 0 exch 1 exch {_pal exch 4 mul 4 hs putinterval}for
  61. }bd
  62.  
  63. /do{ink?
  64.  ink -2 eq{
  65.    {{} exec dup length 4 div 1 sub 0 1 3 2 roll{
  66.      4 mul 1
  67.      3 copy pop get 255 div .733 mul 1 exch sub mul
  68.      3 copy pop 1 add get 255 div .8 mul 1 exch sub mul
  69.      3 copy pop 2 add get 255 div .477 mul 1 exch sub mul
  70.      3 copy pop 3 add get 255 div 1 exch sub mul 1 exch sub
  71.      255 mul cvi 2 index 3 2 roll 4 div 3 2 roll put
  72.     }for dup length 4 div 0 exch getinterval
  73.    }dup 0 4 3 roll put image
  74.  }if
  75.  ink -1 eq{false 4 colorimage}if
  76.  ink 0 eq{
  77.    {{} exec length 4 div dup string exch 1 sub
  78.     0 1 3 2 roll{1 index exch 0 put}for
  79.    } dup 0 4 3 roll put image
  80.  }if
  81.  ink 0 gt{
  82.    {{} exec dup length 4 div 1 sub 0 1 3 2 roll{
  83.      dup 4 mul ink add 1 sub
  84.      2 index exch get 255 exch sub
  85.      2 index 3 1 roll put
  86.     }for dup length 4 div 0 exch getinterval
  87.    }dup 0 4 3 roll put image
  88.  }if
  89. }def
  90.  
  91. /ss{
  92.   /_height exch store /_width exch store
  93.   _width _height 8
  94.   [_width 0 0 0 _height sub 0 _height]
  95. }bd
  96. /sprite{
  97.   /_bpp exch store ss
  98.   /_left 0 store
  99.   /_line _width store
  100.   /_bitmask 1 _bpp bitshift 1 sub store
  101.   { _left 0 eq{
  102.       /_byte 1 hs 0 get store /_left 8 store
  103.     }if
  104.     _byte _bitmask and pe
  105.     /_byte _byte 0 _bpp sub bitshift store
  106.     /_left _left _bpp sub store
  107.     /_line _line 1 sub dup 0 eq{pop _width /_left 0 def}if store
  108.   }
  109.   do
  110. }bd
  111. /spriteb{
  112.   /_bpp exch store ss
  113.   /_left 0 store
  114.   /_line _width store
  115.   /_bitmask 1 _bpp bitshift 1 sub store
  116.   { _left 0 eq{
  117.       /_byte 1 bs 0 get store /_left 8 store
  118.     }if
  119.     _byte _bitmask and pe
  120.     /_byte _byte 0 _bpp sub bitshift store
  121.     /_left _left _bpp sub store
  122.     /_line _line 1 sub dup 0 eq{
  123.       pop _width
  124.       dup _bpp mul _left sub 31 and
  125.       dup 0 gt{32 exch sub 8 div bs}if pop
  126.      /_left 0 def
  127.     }if store
  128.   }
  129.   do
  130. }bd
  131. /beginsprite{
  132.  gsave
  133.  4 index sub exch 5 index sub exch 4 2 roll
  134.  4 index sub exch 5 index sub exch 6 4 roll
  135.  [ 7 1 roll ] concat
  136. }bd
  137. /sprite1{1 sprite}bd
  138. /sprite2{2 sprite}bd
  139. /sprite4{4 sprite}bd
  140. /sprite8{8 sprite}bd
  141. /sprite1b{1 spriteb}bd
  142. /sprite2b{2 spriteb}bd
  143. /sprite4b{4 spriteb}bd
  144. /sprite8b{8 spriteb}bd
  145. % /sprite8{ss {2 hs 0 get pe} do}bd
  146. % /sprite8b{ss {1 bs 0 get pe} do}bd
  147. /sprite24{ss {_width 6 mul hs} false 3 colorimage}bd
  148. /sprite24b{ss {_width 3 mul bs} false 3 colorimage}bd
  149. /sprite32{ss {_width 8 mul hs} do}bd
  150. /sprite32b{ss {_width 4 mul bs} do}bd
  151. /endsprite{grestore}bd
  152.  
  153. end
  154. %%EndResource
  155.